object Main: TMain Left = 510 Top = 116 Width = 608 Height = 504 Caption = 'Main' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Menu = MainMenu1 OldCreateOrder = False Position = poDesktopCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Splitter1: TSplitter Left = 0 Top = 89 Width = 600 Height = 3 Cursor = crVSplit Align = alTop end object Splitter2: TSplitter Left = 0 Top = 317 Width = 600 Height = 3 Cursor = crVSplit Align = alBottom end object Panel1: TPanel Left = 0 Top = 0 Width = 600 Height = 89 Align = alTop TabOrder = 0 object Input: TMemo Left = 1 Top = 1 Width = 440 Height = 87 Align = alLeft Anchors = [akLeft, akTop, akRight] Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssBoth TabOrder = 0 WordWrap = False OnKeyPress = InputKeyPress end object SendBtn: TButton Left = 448 Top = 4 Width = 75 Height = 21 Anchors = [akTop, akRight] Caption = 'Send' TabOrder = 1 OnClick = SendBtnClick end object SendOnReturn: TCheckBox Left = 448 Top = 28 Width = 81 Height = 17 Anchors = [akTop, akRight] Caption = 'Send On CR' Checked = True State = cbChecked TabOrder = 2 end object Connect: TButton Left = 448 Top = 64 Width = 145 Height = 21 Anchors = [akTop, akRight] Caption = 'Connect' TabOrder = 3 OnClick = ConnectClick end object SettingsBtn: TButton Left = 536 Top = 4 Width = 59 Height = 21 Anchors = [akTop, akRight] Caption = 'Settings' TabOrder = 4 OnClick = SettingsBtnClick end object StatusBtn: TButton Left = 536 Top = 24 Width = 59 Height = 21 Anchors = [akTop, akRight] Caption = 'Status' TabOrder = 5 OnClick = StatusBtnClick end object SendCR: TCheckBox Left = 448 Top = 44 Width = 69 Height = 17 Anchors = [akTop, akRight] Caption = 'Send CR' Checked = True State = cbChecked TabOrder = 6 end end object Ascii: TMemo Left = 0 Top = 92 Width = 600 Height = 225 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'RawPort TCP' 'Release 1.0a (Maintenance release)' '' 'Read license_free.txt to check you are eligible for the freeware' + ' license, if not ' 'then you have 14 days to legally evaluate this product within yo' + 'ur organisation.' '' 'This software is fully functioning.' '' 'Many thanks to those of you that give feedback, support, ideas a' + 'nd words' 'of encouragement! Help keep freeware alive and give authors som' + 'ething back.' '' 'Ascii') ParentFont = False ScrollBars = ssBoth TabOrder = 1 end object Binary: TMemo Left = 0 Top = 320 Width = 600 Height = 119 Align = alBottom Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] Lines.Strings = ( 'Binary') ParentFont = False ScrollBars = ssBoth TabOrder = 2 end object SB: TdfsStatusBar Left = 0 Top = 439 Width = 600 Height = 19 Panels = < item Alignment = taCenter PanelType = sptTime Text = '03:04:29' Enabled = True Width = 50 end item Alignment = taCenter Text = 'Socket State' Enabled = True Width = 80 end item PanelType = sptEllipsisText Text = 'LithiumSoft RawPort TCP' Enabled = True Width = 37 Hint = '...' end> SimplePanel = False end object MainMenu1: TMainMenu Left = 80 Top = 136 object File: TMenuItem Caption = '&File' object ClearWindows: TMenuItem Caption = '&Clear Windows' OnClick = ClearWindowsClick end object Exit: TMenuItem Caption = 'E&xit' OnClick = ExitClick end end object Help: TMenuItem Caption = '&Help' object About: TMenuItem Caption = '&About' OnClick = AboutClick end end end object SrvSock: TWSocket LineMode = False LineEnd = #13#10 LineEcho = False LineEdit = False Proto = 'tcp' LocalAddr = '0.0.0.0' LocalPort = '0' MultiThreaded = False OnDataAvailable = SockDataAvailable OnSessionClosed = SrvSockSessionClosed OnSessionAvailable = SrvSockSessionAvailable OnSessionConnected = SockSessionConnected OnChangeState = SockChangeState OnError = SockError FlushTimeout = 60 SendFlags = wsSendNormal LingerOnOff = wsLingerOn LingerTimeout = 0 SocksLevel = '5' SocksAuthentication = socksNoAuthentication Left = 256 Top = 204 end object CliSock: TWSocket LineMode = False LineEnd = #13#10 LineEcho = False LineEdit = False Proto = 'tcp' LocalAddr = '0.0.0.0' LocalPort = '0' MultiThreaded = False OnDataAvailable = SockDataAvailable OnSessionClosed = CliSockSessionClosed OnSessionConnected = SockSessionConnected OnChangeState = SockChangeState OnError = SockError FlushTimeout = 60 SendFlags = wsSendNormal LingerOnOff = wsLingerOn LingerTimeout = 0 SocksLevel = '5' SocksAuthentication = socksNoAuthentication Left = 300 Top = 204 end end